home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / layertext.ifx < prev    next >
Text File  |  2004-08-03  |  711b  |  48 lines
  1. /* Test layer functions */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. GetMain
  6. IF rc ~= 0 THEN EXIT 0
  7.  
  8. Redraw Off
  9. LockGui
  10.  
  11. Text FONT times.font SIZE 24 TEXT 'Shadows Are Cool!'
  12. IF rc ~= 0 THEN DO
  13.    RequestNotify 'Cannot create text brush'
  14.    EXIT 0
  15.    END
  16.  
  17. /* need this because the brush is now active */
  18. Region Full
  19.  
  20. CreateLayer FROMBRUSH
  21. IF rc = 0 THEN DO
  22.    LayerMode DARKEN
  23.    LayerName "Shadow"
  24.    LayerOffset
  25.    PARSE VAR result x y
  26.    LayerOffset x+3 y+3
  27.    END
  28. ELSE DO
  29.    RequestNotify 'Cannot create shadow layer'
  30.    EXIT 0
  31.    END
  32.  
  33. CreateLayer FROMBRUSH
  34. IF rc = 0 THEN DO
  35.    LayerMode NORMAL
  36.    LayerName "Text"
  37.    END
  38. ELSE DO
  39.    RequestNotify 'Cannot create text layer'
  40.    EXIT 0
  41.    END
  42.  
  43. KillBrush
  44.  
  45. UnlockGui
  46. Redraw On
  47. Redraw
  48.